with

while

var

uses

until

unsignedword

unsignedlong

unsignedbyte

univ

unit

type

to

then

string

set

repeat

record

real

program

procedure

packed

otherwise

or

of

object

not

nil

mod

longreal

longint

label

intrinsic

interface

integer

inline

inherited

in

implementation

if

goto

function

forward

for

file

external

end

else

downto

do

div

cycle

const

comp

char

case

break

boolean

begin

asm

array

and